' VB Script Document
on error resume next
If MSDetect = "true" Then
	For i = 2 to 10
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
	Else
	   flashinstalled = 2
	   flashversion = i
	End If
 Next
 If flashinstalled = 0 Then
	flashinstalled = 1
 End If
End If